OneIsland_Harbor_MapScripts:: @ 8171378
@	map_script MAP_SCRIPT_ON_WARP_INTO_MAP_TABLE, OneIsland_Harbor_OnWarp
@	map_script MAP_SCRIPT_ON_FRAME_TABLE, OneIsland_Harbor_OnFrame
	.byte 0

OneIsland_Harbor_OnWarp:: @ 8171383
@	map_script_2 VAR_MAP_SCENE_ONE_ISLAND_HARBOR, 1, OneIsland_Harbor_EventScript_TurnPlayerNorth
@	.2byte 0

OneIsland_Harbor_EventScript_TurnPlayerNorth:: @ 817138D
@	turnobject OBJ_EVENT_ID_PLAYER, DIR_NORTH
	end

OneIsland_Harbor_OnFrame:: @ 8171392
@	map_script_2 VAR_MAP_SCENE_ONE_ISLAND_HARBOR, 1, OneIsland_Harbor_EventScript_PlayerEnterHarborFirstTime
@	.2byte 0

OneIsland_Harbor_EventScript_PlayerEnterHarborFirstTime:: @ 817139C
@	lockall
@	textcolor 0
@	applymovement OBJ_EVENT_ID_PLAYER, OneIsland_Harbor_Movement_PlayerExitHarbor
@	waitmovement 0
@	setvar VAR_MAP_SCENE_ONE_ISLAND_HARBOR, 2
@	warp MAP_ONE_ISLAND, 255, 12, 18
@	waitstate
@	releaseall
	end

OneIsland_Harbor_Movement_PlayerExitHarbor:: @ 81713B9
@	walk_up
@	walk_up
@	walk_up
@	step_end

OneIsland_Harbor_EventScript_Sailor:: @ 81713BD
	lock
	faceplayer
	msgbox Text_WhereDoYouWantToSail, MSGBOX_YESNO
	switch VAR_RESULT
	case NO, OneIsland_Harbor_EventScript_DontWarp
    msgbox OneIsland_Harbor_Text_PleaseBoardFerry, MSGBOX_DEFAULT
    call OneIsland_Harbor_EventScript_BoardFerry
    warp MAP_LILYCOVE_CITY_HARBOR, 255, 8, 11
    waitstate
    release
    end

OneIsland_Harbor_EventScript_DontWarp:
    msgbox OneIsland_Harbor_EventScript_DontWarpText, MSGBOX_DEFAULT
    end

OneIsland_Harbor_EventScript_BoardFerry: @ 823D4BA
	closemessage
	applymovement VAR_LAST_TALKED, Common_Movement_WalkInPlaceFastestDown
	waitmovement 0
	delay 30
	hideobjectat 2, MAP_ONE_ISLAND_HARBOR
	setvar VAR_0x8004, 1
	call Common_EventScript_FerryDepartIsland
	return

Text_WhereDoYouWantToSail:
.string "hi，客人，在岛上玩的怎么样？\n"
.string "想回去了吗，您想回到水静市吗?$"

OneIsland_Harbor_Text_PleaseBoardFerry:
.string "那么客人，请先上船，\n随后启程。$"

OneIsland_Harbor_EventScript_DontWarpText:
.string "欢迎再来!$"
